home *** CD-ROM | disk | FTP | other *** search
- /* Solution of Simultaneous Differential Equations */
-
- EQ1:3*'DIFF(F(X),X,2)-2*'DIFF(G(X),X)=SIN(X);
- EQ2:A*'DIFF(G(X),X,2)+'DIFF(F(X),X)=A*COS(X);
- ATVALUE(G(X),X=0,1)$
- ATVALUE('DIFF(F(X),X),X=0,0)$
- ATVALUE('DIFF(G(X),X),X=0,1)$
- LAPLACE_EQ1:LAPLACE(EQ1,X,S);
- LAPLACE_EQ2:LAPLACE(EQ2,X,S);
- SOLVE([LAPLACE_EQ1,LAPLACE_EQ2],
- ['LAPLACE(F(X),X,S),'LAPLACE(G(X),X,S)]);
- ILT(%,S,X);
-